****************************************
*     PROGRAMME EEPROM                                       *
*     PIC 16F88                                                                     *
*    Ce programme permet d'crire dans l'eeprom         *
*     en incrmentant  chaque fois la valeur de            *
*    la donne et de l'adresse                                             *
****************************************
memo  EQU 0x20             ; le registre memo w est  @0x20
CLRW                                ; w =0

:debut  ;
movwf memo                      ; on mmorise le contenu de w
BANKSEL EEADR        ; Slection BANK 2
MOVWF EEADR            ; adresse w dans EEADR
MOVWF EEDATA         ; on crit w dans EEDATA
call maj eeprom                  ; appel sous programme
goto debut                          ;retour  l'tiquette debut

'********** S/P maj EEPROM *************
:maj eeprom   ;	 
BANKSEL EECON1       ;Slection BANK 3
BCF EECON1,EEPGD   ; = 0 pour ecrire en eeprom
BSF EECON1,WREN      ; WREN= 1 write enbale bit
BCF INTCON,GIE             ; inhibe interruptions
	
*** Ecriture en EEPROM passage obligatoire ...
MOVLW 0x55                   ; w = 0x55 
MOVWF EECON2           ; EECON2 = 0x55
MOVLW 0xAA                  ; w= 0xAA
MOVWF EECON2           ; EECON2 = 0xAA
BSF EECON1,WR            ; mis  1 du bit WR de EECON1
BSF INTCON,GIE            ; remise en service IT
BCF EECON1,WREN    ; dsactivation de l'criture

BANKSEL memo             ; slection BANK0 (memo)
movf memo,w                      ; w est recharg avec memo
ADDLW 1                         ; w =w + 1
return                                    ;retour de sous programme
END                                    ; Fin du programme































































































































